home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_31690.txt < prev    next >
Encoding:
Text File  |  1990-08-14  |  8.6 KB  |  444 lines
  1. -- card: 31690 from stack: in
  2. -- bmap block id: 32009
  3. -- flags: 4000
  4. -- background id: 25390
  5. -- name: Passwords…
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   if the name of target contains "button" then
  9.     get first word of the short name of target
  10.     set hilite of button (it & " None") to false
  11.     set hilite of button (it & " View") to false
  12.     set hilite of button (it & " Edit") to false
  13.     set hilite of target to true
  14.   else pass mouseUp
  15. end mouseUp
  16.  
  17.  
  18.  
  19. -- part 1 (button)
  20. -- low flags: 00
  21. -- high flags: 2000
  22. -- rect: left=74 top=301 right=319 bottom=172
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: OK
  31. ----- HyperTalk script -----
  32. on mouseUp
  33.   lock screen
  34.   repeat with index = 3 to 9
  35.     set hilite of button index to true
  36.   end repeat
  37.   repeat with index = 10 to 23
  38.     set hilite of button index to false
  39.   end repeat
  40.   put empty into card field "Passwords"
  41.   doMenu first
  42.   unlock screen
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 2 (button)
  48. -- low flags: 00
  49. -- high flags: 2000
  50. -- rect: left=296 top=301 right=319 bottom=394
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Cancel
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   lock screen
  62.   repeat with index = 3 to 9
  63.     set hilite of button index to true
  64.   end repeat
  65.   repeat with index = 10 to 23
  66.     set hilite of button index to false
  67.   end repeat
  68.   put empty into card field "Passwords"
  69.   doMenu first
  70.   unlock screen
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 3 (field)
  76. -- low flags: 00
  77. -- high flags: 0000
  78. -- rect: left=38 top=114 right=252 bottom=143
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 19
  86. -- part name: Passwords
  87.  
  88.  
  89. -- part 4 (button)
  90. -- low flags: 00
  91. -- high flags: 4006
  92. -- rect: left=351 top=118 right=134 bottom=369
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: AT None
  101. ----- HyperTalk script -----
  102.  
  103.  
  104.  
  105.  
  106. -- part 5 (button)
  107. -- low flags: 00
  108. -- high flags: 4006
  109. -- rect: left=351 top=137 right=153 bottom=369
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: CD None
  118. ----- HyperTalk script -----
  119.  
  120.  
  121.  
  122.  
  123. -- part 6 (button)
  124. -- low flags: 00
  125. -- high flags: 4006
  126. -- rect: left=351 top=156 right=172 bottom=369
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: YE None
  135. ----- HyperTalk script -----
  136.  
  137.  
  138.  
  139.  
  140. -- part 7 (button)
  141. -- low flags: 00
  142. -- high flags: 4006
  143. -- rect: left=351 top=175 right=191 bottom=369
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: RC None
  152. ----- HyperTalk script -----
  153.  
  154.  
  155.  
  156.  
  157. -- part 8 (button)
  158. -- low flags: 00
  159. -- high flags: 4006
  160. -- rect: left=351 top=194 right=210 bottom=369
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: RM None
  169. ----- HyperTalk script -----
  170.  
  171.  
  172.  
  173.  
  174. -- part 9 (button)
  175. -- low flags: 00
  176. -- high flags: 4006
  177. -- rect: left=351 top=213 right=229 bottom=369
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: SC None
  186. ----- HyperTalk script -----
  187.  
  188.  
  189.  
  190.  
  191. -- part 10 (button)
  192. -- low flags: 00
  193. -- high flags: 4006
  194. -- rect: left=351 top=232 right=248 bottom=369
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: SS None
  203. ----- HyperTalk script -----
  204.  
  205.  
  206.  
  207.  
  208. -- part 11 (button)
  209. -- low flags: 00
  210. -- high flags: 0006
  211. -- rect: left=389 top=118 right=134 bottom=407
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: AT View
  220. ----- HyperTalk script -----
  221.  
  222.  
  223.  
  224.  
  225. -- part 12 (button)
  226. -- low flags: 00
  227. -- high flags: 0006
  228. -- rect: left=389 top=137 right=153 bottom=407
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: CD View
  237. ----- HyperTalk script -----
  238.  
  239.  
  240.  
  241.  
  242. -- part 13 (button)
  243. -- low flags: 00
  244. -- high flags: 0006
  245. -- rect: left=389 top=156 right=172 bottom=407
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 0
  250. -- text size: 12
  251. -- style flags: 0
  252. -- line height: 16
  253. -- part name: YE View
  254. ----- HyperTalk script -----
  255.  
  256.  
  257.  
  258.  
  259. -- part 14 (button)
  260. -- low flags: 00
  261. -- high flags: 0006
  262. -- rect: left=389 top=175 right=191 bottom=407
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 1
  266. -- font id: 0
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: RC View
  271. ----- HyperTalk script -----
  272.  
  273.  
  274.  
  275.  
  276. -- part 15 (button)
  277. -- low flags: 00
  278. -- high flags: 0006
  279. -- rect: left=389 top=194 right=210 bottom=407
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 0 / 0
  282. -- text alignment: 1
  283. -- font id: 0
  284. -- text size: 12
  285. -- style flags: 0
  286. -- line height: 16
  287. -- part name: RM View
  288. ----- HyperTalk script -----
  289.  
  290.  
  291.  
  292.  
  293. -- part 16 (button)
  294. -- low flags: 00
  295. -- high flags: 0006
  296. -- rect: left=389 top=213 right=229 bottom=407
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 1
  300. -- font id: 0
  301. -- text size: 12
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: SC View
  305. ----- HyperTalk script -----
  306.  
  307.  
  308.  
  309.  
  310. -- part 17 (button)
  311. -- low flags: 00
  312. -- high flags: 0006
  313. -- rect: left=389 top=232 right=248 bottom=407
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 0 / 0
  316. -- text alignment: 1
  317. -- font id: 0
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 16
  321. -- part name: SS View
  322. ----- HyperTalk script -----
  323.  
  324.  
  325.  
  326.  
  327. -- part 18 (button)
  328. -- low flags: 00
  329. -- high flags: 0006
  330. -- rect: left=427 top=118 right=134 bottom=445
  331. -- title width / last selected line: 0
  332. -- icon id / first selected line: 0 / 0
  333. -- text alignment: 1
  334. -- font id: 0
  335. -- text size: 12
  336. -- style flags: 0
  337. -- line height: 16
  338. -- part name: AT Edit
  339. ----- HyperTalk script -----
  340.  
  341.  
  342.  
  343.  
  344. -- part 19 (button)
  345. -- low flags: 00
  346. -- high flags: 0006
  347. -- rect: left=427 top=137 right=153 bottom=445
  348. -- title width / last selected line: 0
  349. -- icon id / first selected line: 0 / 0
  350. -- text alignment: 1
  351. -- font id: 0
  352. -- text size: 12
  353. -- style flags: 0
  354. -- line height: 16
  355. -- part name: CD Edit
  356. ----- HyperTalk script -----
  357.  
  358.  
  359.  
  360.  
  361. -- part 20 (button)
  362. -- low flags: 00
  363. -- high flags: 0006
  364. -- rect: left=427 top=156 right=172 bottom=445
  365. -- title width / last selected line: 0
  366. -- icon id / first selected line: 0 / 0
  367. -- text alignment: 1
  368. -- font id: 0
  369. -- text size: 12
  370. -- style flags: 0
  371. -- line height: 16
  372. -- part name: YE Edit
  373. ----- HyperTalk script -----
  374.  
  375.  
  376.  
  377.  
  378. -- part 21 (button)
  379. -- low flags: 00
  380. -- high flags: 0006
  381. -- rect: left=427 top=175 right=191 bottom=445
  382. -- title width / last selected line: 0
  383. -- icon id / first selected line: 0 / 0
  384. -- text alignment: 1
  385. -- font id: 0
  386. -- text size: 12
  387. -- style flags: 0
  388. -- line height: 16
  389. -- part name: RC Edit
  390. ----- HyperTalk script -----
  391.  
  392.  
  393.  
  394.  
  395. -- part 22 (button)
  396. -- low flags: 00
  397. -- high flags: 0006
  398. -- rect: left=427 top=194 right=210 bottom=445
  399. -- title width / last selected line: 0
  400. -- icon id / first selected line: 0 / 0
  401. -- text alignment: 1
  402. -- font id: 0
  403. -- text size: 12
  404. -- style flags: 0
  405. -- line height: 16
  406. -- part name: RM Edit
  407. ----- HyperTalk script -----
  408.  
  409.  
  410.  
  411.  
  412. -- part 23 (button)
  413. -- low flags: 00
  414. -- high flags: 0006
  415. -- rect: left=427 top=213 right=229 bottom=445
  416. -- title width / last selected line: 0
  417. -- icon id / first selected line: 0 / 0
  418. -- text alignment: 1
  419. -- font id: 0
  420. -- text size: 12
  421. -- style flags: 0
  422. -- line height: 16
  423. -- part name: SC Edit
  424. ----- HyperTalk script -----
  425.  
  426.  
  427.  
  428.  
  429. -- part 24 (button)
  430. -- low flags: 00
  431. -- high flags: 0006
  432. -- rect: left=427 top=232 right=248 bottom=445
  433. -- title width / last selected line: 0
  434. -- icon id / first selected line: 0 / 0
  435. -- text alignment: 1
  436. -- font id: 0
  437. -- text size: 12
  438. -- style flags: 0
  439. -- line height: 16
  440. -- part name: SS Edit
  441. ----- HyperTalk script -----
  442.  
  443.  
  444.